home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / imb9103.zip / READPHON.BAS < prev    next >
BASIC Source File  |  1991-03-01  |  370b  |  22 lines
  1. 'Program - READPHON.BAS
  2. CLS
  3.  
  4. 'Sample phone number test using the FIELD instruction
  5.  
  6. OPEN "PHONENBR.DAT" FOR RANDOM AS #1 LEN = 10
  7.  
  8. FIELD 1, 3 AS ac$, 3 AS ex$, 4 AS nbr$
  9. FIELD 1, 10 AS PhoneNumber$
  10.  
  11. GET 1
  12. WHILE NOT EOF(1)
  13.   PRINT "Raw data-> "; PhoneNumber$;
  14.   PRINT " vs. separate fields-> ("; ac$; ") "; ex$; "-"; nbr$
  15.   GET 1
  16. WEND
  17.  
  18. CLOSE 1
  19. END
  20.  
  21.  
  22.